﻿Namespace EIB.Managers
    Public NotInheritable Class EIBDataTypeManger

        'Private _EIStype As EIBData.EIS.EIBDataEIS_Base = Nothing
        'Private _DPTtype As EIBData.DPT.EIBDataDPT_Base = Nothing


        Sub New()

        End Sub

        Sub New(EIStype As EIBData.EIS.EIBDataEIS_Base)
            _EIStype = EIStype
        End Sub

        Sub New(DPTtype As EIBData.DPT.EIBDataDPT_Base)
            _DPTtype = DPTtype
        End Sub

        Sub New(EIStype As EIBData.EIS.EIBDataEIS_Base, DPTtype As EIBData.DPT.EIBDataDPT_Base)
            _EIStype = EIStype
            _DPTtype = DPTtype
        End Sub


        Public Property EISType As EIBData.EIS.EIBDataEIS_Base = Nothing
        Public Property DPTType As EIBData.DPT.EIBDataDPT_Base = Nothing
    End Class
End Namespace